home *** CD-ROM | disk | FTP | other *** search
- #!/usr/bin/perl
-
- $path = $ENV{UI_INSTALL_FILE};
- $desktopPath = "$ENV{'HOME'}/Desktop/Mighty\ Mouse\ Read\ Me.rtfd";
-
- $apePath1 = "/Library/Application\ Enhancers/Mighty\ Mouse.ape";
- $apePath2 = "$ENV{'HOME'}/Library/Application\ Enhancers/Mighty\ Mouse.ape";
-
- if (-e $apePath1) {
- $fromPath = $apePath1 . "/Contents/Resources/APEInfo.rtfd";
- } elsif (-e $apePath2) {
- $fromPath = $apePath2 . "/Contents/Resources/APEInfo.rtfd";
- }
-
- if ($fromPath and $path) {
- symlink($fromPath, $path . "/Contents/Resources/Mighty\ Mouse\ Read\ Me.rtfd");
- $copyCommand = "/bin/cp -R \"" . $fromPath . "\" \"" . $desktopPath . "\"";
- `$copyCommand`;
- }